home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Barcode Generator 2.0 / ppvoptions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-06-22  |  4.8 KB  |  153 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form ppvoptions 
  4.    BorderStyle     =   4  'Festes Werkzeugfenster
  5.    Caption         =   "Print Preview Options"
  6.    ClientHeight    =   2760
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   2325
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2760
  14.    ScaleWidth      =   2325
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows-Standard
  17.    Begin MSComDlg.CommonDialog CD1 
  18.       Left            =   0
  19.       Top             =   2280
  20.       _ExtentX        =   847
  21.       _ExtentY        =   847
  22.       _Version        =   393216
  23.    End
  24.    Begin VB.CommandButton setfg 
  25.       Caption         =   "Set"
  26.       Height          =   255
  27.       Left            =   1560
  28.       TabIndex        =   7
  29.       Top             =   1560
  30.       Width           =   615
  31.    End
  32.    Begin VB.CommandButton setbg 
  33.       Caption         =   "Set"
  34.       Height          =   255
  35.       Left            =   1560
  36.       TabIndex        =   6
  37.       Top             =   840
  38.       Width           =   615
  39.    End
  40.    Begin VB.CommandButton Command2 
  41.       Caption         =   "Restore defaults"
  42.       Height          =   375
  43.       Left            =   720
  44.       TabIndex        =   2
  45.       Top             =   2280
  46.       Width           =   1575
  47.    End
  48.    Begin VB.CheckBox showtitle 
  49.       Caption         =   "Show title under each code"
  50.       Height          =   495
  51.       Left            =   120
  52.       TabIndex        =   5
  53.       Top             =   1800
  54.       Width           =   2055
  55.    End
  56.    Begin VB.TextBox rowtext 
  57.       Height          =   285
  58.       Left            =   720
  59.       TabIndex        =   1
  60.       Text            =   "17"
  61.       Top             =   120
  62.       Width           =   375
  63.    End
  64.    Begin VB.Shape Shape2 
  65.       BackColor       =   &H00000000&
  66.       BackStyle       =   1  'Undurchsichtig
  67.       Height          =   255
  68.       Left            =   120
  69.       Top             =   1560
  70.       Width           =   2055
  71.    End
  72.    Begin VB.Label Label5 
  73.       Caption         =   "FG Color:"
  74.       Height          =   255
  75.       Left            =   120
  76.       TabIndex        =   4
  77.       Top             =   1200
  78.       Width           =   735
  79.    End
  80.    Begin VB.Shape Shape1 
  81.       BackStyle       =   1  'Undurchsichtig
  82.       Height          =   255
  83.       Left            =   120
  84.       Top             =   840
  85.       Width           =   2055
  86.    End
  87.    Begin VB.Label Label4 
  88.       Caption         =   "BG Color:"
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   3
  92.       Top             =   480
  93.       Width           =   735
  94.    End
  95.    Begin VB.Label Label1 
  96.       Caption         =   "Rows:"
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   0
  100.       Top             =   120
  101.       Width           =   495
  102.    End
  103. Attribute VB_Name = "ppvoptions"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Private Sub Command2_Click()
  109. Shape1.BackColor = vbWhite
  110. Shape2.BackColor = vbBlack
  111. rowtext.text = 17
  112. showtitle.Value = 0
  113. End Sub
  114. Private Sub Form_Load()
  115. Shape1.BackColor = GetSetting("Bar Code Generator", "PPV Options", "BackColor", vbWhite)
  116. Shape2.BackColor = GetSetting("Bar Code Generator", "PPV Options", "ForeColor", vbBlack)
  117. rowtext.text = GetSetting("Bar Code Generator", "PPV Options", "Rows", 17)
  118. showtitle.Value = GetSetting("Bar Code Generator", "PPV Options", "ShowTitle", 0)
  119. End Sub
  120. Private Sub Form_Unload(Cancel As Integer)
  121. If IsNumeric(rowtext.text) = True Then
  122.     SaveSetting "Bar Code Generator", "PPV Options", "Rows", rowtext.text
  123. End If
  124. SaveSetting "Bar Code Generator", "PPV Options", "BackColor", Shape1.BackColor
  125. SaveSetting "Bar Code Generator", "PPV Options", "ForeColor", Shape2.BackColor
  126. End Sub
  127. Private Sub rowtext_Change()
  128. If IsNumeric(rowtext.text) = True Then
  129.     SaveSetting "Bar Code Generator", "PPV Options", "Rows", rowtext.text
  130. End If
  131. End Sub
  132. Private Sub setbg_Click()
  133. CD1.Color = Shape1.BackColor
  134. CD1.ShowColor
  135. Shape1.BackColor = CD1.Color
  136. SaveSetting "Bar Code Generator", "PPV Options", "BackColor", Shape1.BackColor
  137. Changed
  138. End Sub
  139. Private Sub setfg_Click()
  140. CD1.Color = Shape2.BackColor
  141. CD1.ShowColor
  142. Shape2.BackColor = CD1.Color
  143. SaveSetting "Bar Code Generator", "PPV Options", "ForeColor", Shape2.BackColor
  144. Changed
  145. End Sub
  146. Sub Changed()
  147. printpreview.BackColor = ppvoptions.Shape1.BackColor
  148. printpreview.ForeColor = ppvoptions.Shape2.BackColor
  149. End Sub
  150. Private Sub showtitle_Click()
  151. SaveSetting "Bar Code Generator", "PPV Options", "ShowTitle", showtitle.Value
  152. End Sub
  153.